ǿ(joekoe) CMS 4.0 ϴSQLע© 

©֤

ϴ©:
 
/common/include/web.upload.asp еĴ
 
-
 
sub doPageLoad()
 
if APP_STATUS=close then
 
treeData.addItem _status,error.message
 
treeData.addItem _message,վʱرάУԺ򡭡
 
exit sub
 
end if
 
up.doInit()
 
if not upConfig.isInit then
 
treeData.addItem _status,error.message
 
treeData.addItem _message,ϴļĲȷ
 
else
 
doPageLoadUser()
 
select case upConfig.channel
 
case forum
 
upConfig.setSaveDir(upConfig.getSaveDir&(left
 
(ops.time.toConvertString(,10),6)&DIR_SEPARATOR))
 
upConfig.filename="
 
case user.face
 
upConfig.filename=face_&upConfig.userid
 
upConfig.setSaveDir(face&DIR_SEPARATOR)
 
upConfig.filetype=gif
 
case blog.logo
 
upConfig.setSaveDir(blog&DIR_SEPARATOR)
 
upConfig.filetype=gif
 
case else
 
if instr(upConfig.channel,.)>0 then
 
upConfig.setSaveDir(mid(upConfig.channel,1,instr
 
(upConfig.channel,.)-1)&DIR_SEPARATOR)
 
end if
 
if instr(upConfig.fileinput,url)>0 then
 
upConfig.filetype=affix
 
end if
 
end select
 
if len(upConfig.getSaveDir())<3 then
 
treeData.addItem _status,error.message
 
treeData.addItem _message,ϴļĲȷ
 
exit sub
 
end if
 
if 1=1 then
 
upConfig.setData zoom.channel.width,120
 
upConfig.setData zoom.channel.height,90
 
end if
 
upConfig.setBaseDir(DIR_ROOT&DIR_UPLOAD)
 
upConfig.setBasePath(opsDirPath(DIR_ROOT&DIR_UPLOAD))
 
upConfig.setBaseURL(URL_UPLOAD)
 
up.doLoad()
 
end if
 
end sub
 
-
 
δͨchannelжǷϴ͸ֵ,channelforum
 
user.faceblog.logoʱжfileinputǷurl
 
upConfig.filetypeͲֵ¿
 

 
if up.isPost() then
 
call doParseUploadData()
 
treeData.addItem _status,succeed
 
dim tmpFormMode,tmpFileValue,tmpThumbValue
 
tmpFormMode=set
 
if upConfig.channel=user.face then
 
tmpLinkMode=no
 
tmpFileValue=#&up.getFileInfo(filename)
 
else
 
tmpFileValue=up.getFileInfo(file.path)
 
select case upConfig.filetype
 
case file
 
tmpLinkMode=no
 
tmpFileValue=up.getFileInfo(file.path)
 
case pic,spic,pics,affix,gif,jpg,jpeg,bmp,png
 
tmpLinkMode=no
 
tmpThumbValue=up.getFileInfo(thumb.path)
 
case else
 
tmpLinkMode=again
 
tmpFormMode=append
 
dim tmpFileType:tmpFileType=lcase(up.getFileInfo(filetype))
 
select case tmpFileType
 
case gif,jpg,jpeg,bmp,png
 
tmpFileValue="
 
case swf
 
tmpFileValue="
 
case else
 
tmpFileValue=[download="&tmpFileType&"]upload_download.asp?
 
id=&upConfig.fileid&[/download]
 
end select
 
end select
 
end if
 
treeData.addItem _form.mode,tmpFormMode
 
treeData.addItem _form.filevalue,tmpFileValue
 
treeData.addItem _form.thumbvalue,tmpThumbValue
 
end if
 ǿ(JoeKoe) CMS 4.0̨shell
 
̨>ϵͳ>վá>վơ>վдһ仰
 



Ȼͨһ仰. www.XXX.com/index.asp 
